home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / mathstat.arc / S11.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  768 b   |  35 lines
  1. 10   PRINT "F-DISTRIBUTION"
  2. 20   PRINT 
  3. 30   PRINT "(TO END PROGRAM ENTER AN F-VALUE OF 0)"
  4. 40   PRINT "F-VALUE";
  5. 50   INPUT F
  6. 60   IF F = 0 THEN 340
  7. 70   PRINT "DEGREES OF FREEDOM IN NUMERATOR";
  8. 80   INPUT D1
  9. 90   PRINT "DEGREES OF FREEDOM IN DENOMINATOR";
  10. 100   INPUT D2
  11. 110  X = 1
  12. 120   IF F < 1 THEN 170
  13. 130  S = D1
  14. 140  T = D2
  15. 150  Z = F
  16. 160   GOTO 200
  17. 170  S = D2
  18. 180  T = D1
  19. 190  Z = 1 / F
  20. 200  J = 2 / 9 / S
  21. 210  K = 2 / 9 / T
  22. 220  Y =  ABS ((1 - K) * Z ^ (1 / 3) - 1 + J) /  SQR (K * Z ^ (2 / 3) + J)
  23. 230  IF T < 4  THEN 270
  24. 240  X = 0.5 / (1 + Y * ( 0.196854 + Y * (0.115194 + Y * (0.000343999 + Y * 0.019527)))) ^ 4
  25. 250  X = INT (X * 10000 + 0.5) / 10000
  26. 260  GOTO 290
  27. 270  Y = Y * (1 + 0.08 * Y ^ 4 / T ^ 3)
  28. 280  GOTO 240
  29. 290  IF F > = 1  THEN 310
  30. 300  X = 1 - X
  31. 310  PRINT "PERCENTILE ="; 1-X
  32. 320  PRINT
  33. 330  GOTO  40
  34. 340  RUN "STAT"
  35.